Public Class LoginForm1

    ' TODO: inserte el código para realizar autenticación personalizada usando el nombre de usuario y la contraseña proporcionada 
    ' (Consulte http://go.microsoft.com/fwlink/?LinkId=35339).  
    ' El objeto principal personalizado se puede adjuntar al objeto principal del subproceso actual como se indica a continuación: 
    ' My.User.CurrentPrincipal = CustomPrincipal
    ' donde CustomPrincipal es la implementación de IPrincipal utilizada para realizar la autenticación. 
    ' Posteriormente, My.User devolverá la información de identidad encapsulada en el objeto CustomPrincipal
    ' como el nombre de usuario, nombre para mostrar, etc.
    Public tipousuario, nombreusuario As String

    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        ' SistInicio.Show()
        If Me.NombreTextBox.Text = "" Or Me.ContrasenaTextBox.Text = "" Then
            MessageBox.Show("Se debe ingresar el nombre y la contraseña del usuario para continuar", "Datos incompletos", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        Else
            Me.UsuariosTableAdapter.FillByUsuarios(Me.BdsiutgvDataSet.usuarios, Me.NombreTextBox.Text, Me.ContrasenaTextBox.Text)
            If Me.UsuariosBindingSource.Count = 1 Then
                tipousuario = TipoLabel1.Text
                nombreusuario = NombreTextBox.Text
                SistInicio.Show()
                Me.Hide()
            Else
                MessageBox.Show("Los datos digitados no coinciden o el usuario no se encuentra en la base de datos", "Error al digitar los datos", MessageBoxButtons.OK, MessageBoxIcon.Stop)
                Me.NombreTextBox.Text = ""
                Me.ContrasenaTextBox.Text = ""
                Me.NombreTextBox.Focus()
            End If

        End If
    End Sub

    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        Me.Close()
    End Sub

    Private Sub LoginForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'BdsiutgvDataSet.usuarios' Puede moverla o quitarla según sea necesario.
        Me.UsuariosTableAdapter.Fill(Me.BdsiutgvDataSet.usuarios)
        ' Me.AxSkin1.ApplySkin(IntPtr.Zero)


    End Sub

End Class
